
   2 CLEAR ;B=28;FOR A=1TO 3;CY=B;CX=-15;PRINT #1,A;B=B-24;NEXT A;BC=8;FC=135;&(0)=FC;&(1)=FC;&(2)=8;&(3)=8;&(9)=19;GOTO 19
   3 L=1;B=N÷10;L=L+B;IF N=19L=L+1
   4 G=9+N-L×9;GOSUB 10;BOX X+8,Y-2,6,4,1;RETURN 
   5 CX=4;CY=35;PRINT "WINNER IS #",#1,V;FOR A=115TO 0STEP -1;BC=FC;&(19)=A;&(21)=A;BC=8;NEXT A;RUN 
   6 Z=@(A)+@(A+E)+@(A+F);IF Z=V×3P=3;N=A;GOSUB 3;N=A+E;GOSUB 3;N=A+F;GOSUB 3;NT=3;GOTO 5
   7 RETURN 
   8 BOX 25,-2,34,11,3;BOX 22,-18,41,11,3;RETURN 
   9 BOX 57,14,34,11,3;BOX 12,14,28,11,3;RETURN 
  10 Y=59-L×24;X=-84;D=-28;FOR M=1TO G;X=X+14;IF X=D X=X-35;D=D+7;Y=Y-7
  11 NEXT M;IF P=1LINE X,Y,4=XY;LINE X+15,Y-5,1;LINE X+10,Y,4=XY;LINE X+5,Y-5,1;P=2;RETURN 
  12 IF P=2LINE X+2,Y-1,4=XY;LINE X+10,Y-1,1;LINE X+13,Y-4,1;LINE X+5,Y-4,1;LINE X+2,Y-1,1;P=1
  13 RETURN 
  16 NT=0;U=&(27+P)÷T+1;CY=R;CX=58;PRINT #1,U;IF TR(P)=0GOTO 16
  17 RETURN 
  19 XY=-8202;LINE -10,15,1;LINE -31,36,1;LINE -73,36,1;LINE -73,-12,1;LINE -52,-33,1;LINE -10,-33,1;XY=9399
  20 LINE -52,15,1;LINE -11,15,1;XY=3255;LINE -52,-9,1;LINE -10,-9,1;LINE -31,12,1;LINE -73,12,1;XY=-8202;LINE -31,-12,1
  25 LINE -73,-12,1;BOX -31,-10,1,3,1;BOX -31,14,1,3,1;FOR X=-33TO 15STEP 24;A=X+7;LINE -24,X,4=XY;LINE -45,X+21,1
  30 LINE -17,A,4=XY;LINE -59,A,1;LINE -38,X,4=XY;LINE -59,X+21,1;LINE -24,A+7,4=XY;LINE -66,A+7,1;NEXT X
  40 FOR A=1TO 27;@(A)=9;NEXT A;P=RND (2);V=P;CY=14;CX=4;PRINT "WAIT   READY
  45 BOX 57,14,34,11,3;PRINT ;CX=14;PRINT "LEVEL #";PRINT ;CX=8;PRINT "SQUARE #";BOX 25,-2,34,11,3
  50 CY=-33;CX=7;PRINT "GO PLAYER ",#1,P;T=100;R=-2;GOSUB 16;L=U;GOSUB 8;NT=40;MU=10000;R=-18;T=29;GOSUB 16;G=U
  66 NT=1;A=9-G;A=L×9-A;IF @(A)<9CY=33;CX=15;PRINT "OCCUPIED";GOSUB 8;BOX 35,33,89,8,2;GOTO 50
  70 @(A)=P;BOX 35,-33,89,8,2;GOSUB 9;GOSUB 10;E=1;F=2;C=3;H=27
  75 FOR A=1TO HSTEP C;GOSUB 6;NEXT A;E=E+8;F=18;C=1;H=9;IF E=9GOTO 75
  80 B=0;E=3;F=6;FOR C=1TO 3;FOR A=C+BTO 2+C+B;GOSUB 6;NEXT A;B=B+8;NEXT C;C=1;D=19;E=4;F=8
  85 FOR B=1TO 2;FOR A=CTO DSTEP 9;GOSUB 6;NEXT A;C=3;D=21;E=2;F=4;NEXT B;B=1;E=12;F=24;FOR D=1TO 2;FOR A=BTO C
  90 GOSUB 6;NEXT A;B=7;C=9;E=6;F=12;NEXT D;E=13;A=1;F=26;GOSUB 6;A=9;E=5;F=10;GOSUB 6;A=3;E=11;F=22;GOSUB 6
  95 A=7;E=7;F=14;GOSUB 6;B=1;C=7;E=10;F=20;FOR D=1TO 2;FOR A=BTO CSTEP 3;GOSUB 6;NEXT A;B=3;C=9;E=8;F=16;NEXT D
 100 V=P;GOSUB 9;GOSUB 8;GOTO 50
:RETURN ;RUN 
>